with Bar; use Bar;
with Ada.Text_IO;

procedure Main is
   Obj : My_Int := (A => 10);
begin
   Obj.Do_Nothing (3);
   Ada.Text_IO.Put_Line ("Zboob");
end Main;
